object FMForm: TFMForm Left = 555 Top = 426 Width = 435 Height = 300 Caption = 'File manager example' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 Position = poDefault OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object StatusBar: TPanel Left = 0 Top = 204 Width = 427 Height = 50 Align = alBottom BevelOuter = bvNone TabOrder = 0 object DirectoryPanel: TPanel Left = 0 Top = 0 Width = 228 Height = 50 Align = alLeft BevelInner = bvLowered BevelWidth = 2 TabOrder = 0 end object FilePanel: TPanel Left = 228 Top = 0 Width = 199 Height = 50 Align = alClient BevelInner = bvLowered BevelWidth = 2 TabOrder = 1 object Floppy: TImage Left = 30 Top = 20 Width = 16 Height = 9 AutoSize = True Picture.Data = {} Visible = False end object Fixed: TImage Left = 59 Top = 20 Width = 16 Height = 9 AutoSize = True Picture.Data = {} Visible = False end object Network: TImage Left = 89 Top = 20 Width = 16 Height = 9 AutoSize = True Picture.Data = {} Visible = False end object CDRom: TImage Left = 121 Top = 20 Width = 16 Height = 9 AutoSize = True Picture.Data = {} Visible = False end object RamDisk: TImage Left = 145 Top = 20 Width = 16 Height = 9 AutoSize = True Picture.Data = {} Visible = False end end end object DriveTabSet: TTabSet Left = 0 Top = 178 Width = 427 Height = 26 Align = alBottom Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] Style = tsOwnerDraw OnChange = DriveTabSetChange OnDrawTab = DriveTabSetDrawTab OnMeasureTab = DriveTabSetMeasureTab end object DirectoryOutline: TDirectoryOutline Left = 0 Top = 0 Width = 198 Height = 178 Align = alLeft ItemHeight = 16 OnChange = DirectoryOutlineChange OnDragDrop = DirectoryOutlineDragDrop OnDragOver = DirectoryOutlineDragOver Options = [ooDrawFocusRect] PictureLeaf.Data = {}